home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / pc_board / upadr.zip / UPADR.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1993-05-07  |  4KB  |  177 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 1.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING002
  20.     String   STRING003
  21.     String   STRING004
  22.     String   STRING005
  23.  
  24. ;------------------------------------------------------------------------------
  25.  
  26.     STRING002 = " 1234567890qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM"
  27.     GetUser
  28.     If ((Psa(3) && (Strip(U_Addr(0), " ") == "")) && (Strip(U_Addr(2), " ") == "")) Then
  29.         Goto LABEL001
  30.     Else
  31.         Goto LABEL011
  32.     Endif
  33.     :LABEL001
  34.     STRING003 = ""
  35.     STRING004 = ""
  36.     STRING005 = ""
  37.     Cls
  38.     DispFile PPEPath() + "upadr", 1 + 2 + 4
  39.     PrintLn "@X0E    1 @X0F- @X0BStreet & Number: @X0F", U_Addr(0)
  40.     PrintLn "@X0E    2 @X0F- @X0B  Suite or Unit: @X0F", U_Addr(1)
  41.     PrintLn "@X0E    3 @X0F- @X0B           City: @X0F", U_Addr(2)
  42.     PrintLn "@X0E    4 @X0F- @X0B Province/State: @X0F", U_Addr(3)
  43.     PrintLn "@X0E    5 @X0F- @X0BPostal/Zip Code: @X0F", U_Addr(4)
  44.     PrintLn "@X0E    6 @X0F- @X0B        Country: @X0F", U_Addr(5)
  45.     PrintLn 
  46.     InputStr "@X0E    Select @X0F1 - 6@X0E, (@X0FQ@X0E)uit and save@X0F", STRING005, 14, 1, "123456SQ ", 10
  47.     PrintLn 
  48.     If (STRING005 == "") Goto LABEL001
  49.     If (STRING005 == "1") Goto LABEL002
  50.     If (STRING005 == "2") Goto LABEL003
  51.     If (STRING005 == "3") Goto LABEL004
  52.     If (STRING005 == "4") Goto LABEL005
  53.     If (STRING005 == "5") Goto LABEL006
  54.     If (STRING005 == "6") Goto LABEL007
  55.     If (STRING005 == "Q") Goto LABEL008
  56.     :LABEL002
  57.     PrintLn 
  58.     InputStr "@X0A        Street & Number", STRING003, 14, 45, STRING002, 10
  59.     If ((STRING003 == "") || (Left(STRING003, 1) == " ")) Goto LABEL001
  60.     U_Addr(0) = STRING003
  61.     Goto LABEL001
  62.     :LABEL003
  63.     PrintLn 
  64.     InputStr "@X0A          Suite or Unit", STRING003, 14, 30, STRING002, 10
  65.     If ((STRING003 == "") || (Left(STRING003, 1) == " ")) Goto LABEL001
  66.     U_Addr(1) = STRING003
  67.     Goto LABEL001
  68.     :LABEL004
  69.     PrintLn 
  70.     InputStr "@X0A                   City", STRING003, 14, 30, STRING002, 10
  71.     If ((STRING003 == "") || (Left(STRING003, 1) == " ")) Goto LABEL001
  72.     U_Addr(2) = STRING003
  73.     Goto LABEL001
  74.     :LABEL005
  75.     PrintLn 
  76.     InputStr "@X0A         Province/State", STRING003, 14, 10, STRING002, 10
  77.     If ((STRING003 == "") || (Left(STRING003, 1) == " ")) Goto LABEL001
  78.     U_Addr(3) = STRING003
  79.     Goto LABEL001
  80.     :LABEL006
  81.     PrintLn 
  82.     InputStr "@X0A        Postal/Zip Code", STRING003, 14, 10, STRING002, 10
  83.     If ((STRING003 == "") || (Left(STRING003, 1) == " ")) Goto LABEL001
  84.     U_Addr(4) = STRING003
  85.     Goto LABEL001
  86.     :LABEL007
  87.     PrintLn 
  88.     InputStr "@X0A                Country", STRING003, 14, 15, STRING002, 10
  89.     If ((STRING003 == "") || (Left(STRING003, 1) == " ")) Goto LABEL001
  90.     U_Addr(5) = STRING003
  91.     Goto LABEL001
  92.     :LABEL008
  93.     If ((U_Addr(0) == "") || (Left(U_Addr(0), 1) == " ")) Then
  94.         Goto LABEL009
  95.     ElseIf ((U_Addr(2) == "") || (Left(U_Addr(2), 1) == " ")) Then
  96.         Goto LABEL009
  97.     ElseIf ((U_Addr(3) == "") || (Left(U_Addr(3), 1) == " ")) Then
  98.         Goto LABEL009
  99.     ElseIf ((U_Addr(4) == "") || (Left(U_Addr(4), 1) == " ")) Then
  100.         Goto LABEL009
  101.     Endif
  102.     Goto LABEL010
  103.     :LABEL009
  104.     PrintLn 
  105.     PrintLn "@X0A    You have NOT entered all the information required to complete"
  106.     PrintLn "@X0A    your USER record. If you don't do it now, you'll be asked again"
  107.     PrintLn "@X0A    each time you log on until the informaton is completed."
  108.     PrintLn 
  109.     InputYN "@X0E    Do you still want to Quit anyway (y/N)@X07", STRING004, 15
  110.     If (STRING004 == "Y") Goto LABEL010
  111.     If (STRING004 == "N") Goto LABEL001
  112.     If (STRING004 == "") Goto LABEL001
  113.     :LABEL010
  114.     PrintLn 
  115.     PrintLn "@X0A    Thanks for taking the time to update your USER record @FIRST@."
  116.     PrintLn 
  117.     PrintLn "@X0A    In the future if you need to update this information, simply"
  118.     PrintLn "@X0A    type @X0FW@X0A at the Main Command prompt.@X07"
  119.     PrintLn 
  120.     PutUser
  121.     End
  122.     :LABEL011
  123.     End
  124.  
  125. ;------------------------------------------------------------------------------
  126. ;
  127. ; Usage report (before postprocessing)
  128. ;
  129. ; ■ Statements used :
  130. ;
  131. ;    2       End
  132. ;    1       Cls
  133. ;    39      Goto 
  134. ;    10      Let 
  135. ;    25      PrintLn 
  136. ;    22      If 
  137. ;    1       DispFile 
  138. ;    1       GetUser
  139. ;    1       PutUser
  140. ;    7       InputStr 
  141. ;    1       InputYN 
  142. ;
  143. ;
  144. ; ■ Functions used :
  145. ;
  146. ;    3       +
  147. ;    33      ==
  148. ;    5       !
  149. ;    2       &&
  150. ;    10      ||
  151. ;    10      Left()
  152. ;    2       Strip()
  153. ;    1       PPEPath()
  154. ;    1       Psa()
  155. ;
  156. ;------------------------------------------------------------------------------
  157. ;
  158. ; Analysis flags : W
  159. ;
  160. ; W - Write user ■ 5
  161. ;     Program writes a user record. Although this may be normal for a
  162. ;     User Editor, it may also be a way to modify an account level.
  163. ;     ■ Search for : PUTUSER
  164. ;
  165. ;------------------------------------------------------------------------------
  166. ;
  167. ; Postprocessing report
  168. ;
  169. ;    0       For/Next
  170. ;    0       While/EndWhile
  171. ;    5       If/Then or If/Then/Else
  172. ;    0       Select Case
  173. ;
  174. ;------------------------------------------------------------------------------
  175. ;                 AEGiS Corp - Break the routines, code against the machines!
  176. ;------------------------------------------------------------------------------
  177.